home *** CD-ROM | disk | FTP | other *** search
/ Amiga Game-Power / Amiga Game-Power.iso / anwendungen / videodatei / maxidat / maxisetup (.txt) < prev    next >
AmigaBASIC Source Code  |  1994-05-20  |  4KB  |  157 lines
  1. REM ***********************************
  2. REM *** SetUp-Programm fuer MaxiDAT ***
  3. REM ***     written 6. 5. 1989      ***
  4. REM ***     by  Christoph Hust      ***
  5. REM ***       PUBLIC DOMAIN         ***
  6. REM ***********************************
  7.  
  8. CLS
  9. COLOR 2,1
  10. PRINT " MaxiSETUP - Voreinstellungen von MaxiDat ändern "
  11. COLOR 1,0
  12. PRINT
  13. PRINT 
  14. PRINT "Bitte geben Sie zuerst den Standardzugriffspfad ein !"
  15. PRINT "(Voreinstellung = 'DF0:MaxiDat/Daten/')"
  16. LINE INPUT Pfad$
  17. IF Pfad$ = "" THEN
  18.   Pfad$="DF0:MaxiDat/Daten/"
  19. END IF
  20. IF MID$(Pfad$,1,1) = ":" THEN
  21.   Pfad$="DF"+Pfad$
  22. END IF
  23. IF MID$(Pfad$,4,1) <> ":" THEN
  24.   Pfad$="DF0:"+Pfad$
  25. END IF
  26. IF RIGHT$(Pfad$,1) <> "/" AND RIGHT$(Pfad$,1) <> ":" THEN
  27.   Pfad$=Pfad$+"/"
  28. END IF
  29. LOCATE 6,1
  30. COLOR 2,1
  31. PRINT Pfad$
  32. COLOR 1,0
  33. LW$=LEFT$(Pfad$,4)
  34. Pfad$=MID$(Pfad$,5)
  35. PRINT 
  36. PRINT 
  37. PRINT "Geben Sie jetzt bitte die Laufwerksbezeichnungen ein, die beim"
  38. PRINT "'Laufwerk ändern'-Requester erscheinen sollen !"
  39. PRINT "(Voreinstellungen = 'DF0:' 'DF1:')"
  40. LINE INPUT "1. Bezeichnung : ",Drive1$
  41. IF Drive1$ = "" THEN
  42.   Drive1$="DF0:"
  43. END IF
  44. Drive1$=UCASE$(Drive1$)
  45. IF RIGHT$(Drive1$,1) <> ":" THEN
  46.   Drive1$=Drive1$+":"
  47. END IF
  48. LOCATE 12,18
  49. COLOR 2,1
  50. PRINT Drive1$
  51. COLOR 1,0
  52. LINE INPUT "2. Bezeichnung : ",Drive2$
  53. IF Drive2$ = "" THEN
  54.   Drive2$="DF1:"
  55. END IF
  56. Drive2$=UCASE$(Drive2$)
  57. IF RIGHT$(Drive2$,1) <> ":" THEN
  58.   Drive2$=Drive2$+":"
  59. END IF
  60. LOCATE 13,18
  61. COLOR 2,1
  62. PRINT Drive2$
  63. COLOR 1,0
  64. PRINT 
  65. PRINT 
  66. PRINT "Bitte geben Sie jetzt die gewünschten Farben ein. Jede Farbe be-"
  67. PRINT "steht aus einem Rot-, einem Grün- und einem Blauwert. Diese können"
  68. PRINT "Werte zwischen 0 und 1 annehmen."
  69. LOCATE 19,1
  70. INPUT "Wert 0 (Hintergrund) [1,1,1] : ",R$,G$,B$
  71. R(0)=VAL(R$):G(0)=VAL(G$):B(0)=VAL(B$)
  72. IF R(0)=-1 OR G(0)=-1 OR B(0)=-1 THEN
  73.   R(0)=1:G(0)=1:B(0)=1
  74. END IF
  75. TEST R(0):TEST G(0):TEST B(0)
  76. LOCATE 19,32
  77. COLOR 2,1
  78. PRINT R(0);G(0);B(0)
  79. COLOR 1,0
  80. LOCATE 20,1
  81. INPUT "Wert 1               [0,0,0] : ",R$,G$,B$
  82. R(1)=VAL(R$):G(1)=VAL(G$):B(1)=VAL(B$)
  83. IF R(1)=-1 OR G(1)=-1 OR B(1)=-1 THEN
  84.   R(1)=0:G(1)=0:B(1)=0
  85. END IF
  86. TEST R(1):TEST G(1):TEST B(1)
  87. LOCATE 20,32
  88. COLOR 2,1
  89. PRINT R(1);G(1);B(1)
  90. COLOR 1,0
  91. LOCATE 21,1
  92. INPUT "Wert 2               [1,0,0] : ",R$,G$,B$
  93. R(2)=VAL(R$):G(2)=VAL(G$):B(2)=VAL(B$)
  94. IF R(2)=-1 OR G(2)=-1 OR B(2)=-1 THEN
  95.   R(2)=1:G(2)=0:B(2)=0
  96. END IF
  97. TEST R(2):TEST G(2):TEST B(2)
  98. LOCATE 21,32
  99. COLOR 2,1
  100. PRINT R(2);G(2);B(2)
  101. COLOR 1,0
  102. LOCATE 22,1
  103. INPUT "Wert 3             [0,0.5,1] : ",R$,G$,B$
  104. R(3)=VAL(R$):G(3)=VAL(G$):B(3)=VAL(B$)
  105. IF R(3)=-1 OR G(3)=-1 OR B(3)=-1 THEN
  106.   R(3)=0:G(3)=0.5:B(3)=1
  107. END IF
  108. TEST R(3):TEST G(3):TEST B(3)
  109. LOCATE 22,32
  110. COLOR 2,1
  111. PRINT R(3);G(3);B(3);
  112. COLOR 1,0
  113. SOUND 800,10,255
  114. PRINT :PRINT "Bitte eine Taste drücken ...";
  115. WHILE INKEY$="":WEND
  116. CLS
  117. PRINT "Sollen diese Voreinstellungen wirklich in die Datei"
  118. PRINT CHR$(34);Pfad$;"mConfig";CHR$(34)
  119. PRINT "geschrieben werden ?"
  120. INPUT "[J]a, [N]ein ";Jn$
  121. Jn$=UCASE$(LEFT$(Jn$,1))
  122. IF Jn$="J" THEN
  123.   CLS
  124.   PRINT "Bitte geben Sie die Pfadbezeichnung ein, in der das"
  125.   PRINT "MaxiDAT-Programm abgespeichert ist."
  126.   PRINT CHR$(34);"/mConfig";CHR$(34);"wird automatisch hinzugefügt."
  127.   LINE INPUT "Filename = ",Dnam$
  128.   Dnam$=Dnam$+"/mConfig"
  129.   OPEN Dnam$ FOR OUTPUT AS #1
  130.     PRINT #1,"Voreinstellungen für MaxiDAT"
  131.     PRINT #1,LW$
  132.     PRINT #1,Pfad$
  133.     PRINT #1,Drive1$
  134.     PRINT #1,Drive2$
  135.     FOR I=0 TO 3
  136.       PRINT #1,R(I)
  137.       PRINT #1,G(I)
  138.       PRINT #1,B(I)
  139.     NEXT I
  140.   CLOSE #1
  141.   PRINT 
  142.   PRINT "Daten sind gesichert."
  143. ELSE
  144.   CLS
  145.   PRINT "Daten werden nicht gespeichert."
  146. END IF
  147.  
  148. SUB TEST (arg) STATIC
  149.   IF arg>1 THEN
  150.     arg=1
  151.   END IF
  152.   IF arg<0 THEN
  153.     arg=0
  154.   END IF
  155. END SUB
  156.  
  157.